home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / orchis11.zip / ORCHIS.PRO < prev    next >
Text File  |  1994-11-26  |  5KB  |  80 lines
  1. /ss save def /d0 1000 dict def d0 begin 0 setlinecap 0 setlinejoin
  2. newpath /pm matrix def /pcov false def /ppov false def /mfon
  3. 0 def /ocol 0 def /fibs false def /bd {bind def} bind def /so
  4. {/cpov ppov def /ccov pcov def translate cpov {2 copy pm identmatrix
  5. scale currentlinewidth dup 3 -1 roll idtransform add 2 div dup
  6. dup setlinewidth 7 -1 roll add 6 1 roll 5 -1 roll add 4 1 roll}
  7. if scale scar exch get exec cpov not {ppen [] 0 setdash} if ccov
  8. {/tcol gcol def /ocol gcol def} {/tcol 0 def /gcol 0 def 0 scol}
  9. ifelse reset} bd /scar [{pop pop} {exch pop 0 translate 90 rotate}
  10. {translate 180 rotate} {pop 0 exch translate 270 rotate} {pop
  11. pop [0 1 1 0 0 0] concat} {[1 0 0 -1 0 0] concat 0 exch neg translate
  12. pop} {[0 -1 -1 0 0 0] concat neg exch neg exch translate} {pop
  13. [-1 0 0 1 0 0] concat neg 0 translate}] def /wind {newpath moveto
  14. dup 0 exch l2 exch 0 l2 neg 0 exch l2 clip newpath} bd /dod {3
  15. 1 roll def def} bd /fix {256 div} bd /ov0 {ccov not {/pcov false
  16. def} if cpov not {/ppov false def} if} bd /ov1 {/pcov true def
  17. cpov not {/ppov false def} if} bd /ov2 {ccov not {/pcov false
  18. def} if /ppov true def} bd /ov3 {/pcov true def /ppov true def}
  19. bd /pen {cpov {pop} {setlinewidth} ifelse} bd /ppen {cpov not
  20. {.18 .18 pm defaultmatrix dtransform idtransform abs exch abs
  21. 2 copy ge {exch} if pop setlinewidth} if} bd /dash {/off exch
  22. def /on exch def cpov not {on 0 eq {[] 0 setdash} {[on off] 0
  23. setdash} ifelse} if} bd /cola [{0 0 0} {1 0 0} {0 0 1} {1 1 0}
  24. {0 1 0} {.5 .25 0} {1 0 1} {0 1 1} {1 .5 0} {.75 1 0} {.75 .75
  25. .75} {1 .75 1} {.5 0 1} {1 .75 0} {.5 .75 0} {1 1 1}] def /scol
  26. {fibs {pop} {cola exch get exec setrgbcolor} ifelse} bd /apco
  27. {dup 15 ne ccov and {pop ocol} if} bd /gc {apco dup /gcol exch
  28. def scol} bd /tc {apco /tcol exch def} bd /ts {/bsiz exch def
  29. /ysiz exch def /xsiz exch def} bd /ta {/tall exch def} bd /tj
  30. {/tjus exch def} bd /tr {/trot exch def} bd /saves {gsave gcol
  31. tcol ocol dfon xsiz ysiz bsiz tjus trot mfon tall cpov ppov ccov
  32. pcov fibs 16 array astore} bd /rests {aload pop /fibs exch def
  33. /pcov exch def /ccov exch def /ppov exch def /cpov exch def /tall
  34. exch def /mfon exch def /trot exch def /tjus exch def /bsiz exch
  35. def /ysiz exch def /xsiz exch def /dfon exch def /ocol exch def
  36. /tcol exch def /gcol exch def grestore} bd /reset {/trot 0 def
  37. /tall 0 def /tjus 0 def /dfon 0 def /xsiz 0 def /ysiz 0 def /bsiz
  38. 0 def} bd /m1 {moveto} bd /m2 {currentlinewidth 2.83 div dup
  39. 3 1 roll add 3 1 roll add exch moveto} bd /l2 {rlineto} bd /FONTS
  40. [ /Times-Roman /Times-Italic /Times-Bold /Times-BoldItalic /Helvetica
  41. /Helvetica-Oblique /Helvetica-Bold /Helvetica-BoldOblique /Bookman-Light
  42. /Bookman-LightItalic /Bookman-Demi /Bookman-DemiItalic /Palatino-Roman
  43. /Palatino-Italic /Palatino-Bold /Palatino-BoldItalic /AvantGarde-Book
  44. /AvantGarde-BookOblique /AvantGarde-Demi /AvantGarde-DemiOblique
  45. /ZapfChancery-MediumItalic /Symbol ] def /gfon {/rot exch def
  46. findfont /fon exch def matrix scale tart rot get matrix concatmatrix
  47. fon exch makefont} bd /tart [[1 0 0 -1 0 0] [0 1 1 0 0 0] [-1
  48. 0 0 1 0 0] [0 -1 -1 0 0 0] [0 1 -1 0 0 0] [1 0 0 1 0 0] [0 -1
  49. 1 0 0 0] [-1 0 0 -1 0 0]] def /font {/dfon exch def /mfon xsiz
  50. ysiz FONTS dfon get trot gfon def} bd /text {tcol scol /str exch
  51. def /plen exch def /box exch def /y4 exch def /x4 exch def mfon
  52. setfont /stln str stringwidth add abs def /xOff /esp stln plen
  53. box just dod /yOff /xOff xOff box talc dod xOff yOff rtex y4
  54. add exch x4 add exch moveto esp 0 eq {str show} {/chan str length
  55. def chan 1 gt { esp chan 1 sub div 0 rtex str ashow} {str show}
  56. ifelse} ifelse gcol scol} bd /mtex {tcol scol /stan exch def
  57. /parts stan array def /fonts stan array def /colt stan array
  58. def stan 1 sub -1 0 {/ind exch def colt exch ind exch put /fnum
  59. exch def fonts ind xsiz ysiz FONTS fnum get trot gfon put parts
  60. exch ind exch put} for /plen exch def /box exch def /y4 exch
  61. def /x4 exch def /chan 0 0 1 stan 1 sub {parts exch get length
  62. add} for def /stln 0 0 1 stan 1 sub {/ind exch def fonts ind
  63. get setfont parts ind get stringwidth add abs add} for def /xOff
  64. /esp stln plen box just dod /yOff /xOff xOff box talc dod xOff
  65. yOff rtex y4 add exch x4 add exch moveto esp 0 eq {shot} { chan
  66. 1 gt { esp chan 1 sub div 0 rtex ashot} {shot} ifelse} ifelse
  67. gcol scol} bd /shot {0 1 parts length 1 sub {/ind exch def fonts
  68. ind get setfont asc parts ind get show} for} bd /ashot {/y4 exch
  69. def /x4 exch def 0 1 parts length 1 sub {/ind exch def fonts
  70. ind get setfont asc x4 y4 parts ind get ashow} for} bd /asc {colt
  71. ind get apco scol} bd /just {/boxS exch def /pepL exch def /strL
  72. exch def jtab tjus get exec} bd /jtab [ {0 boxS strL sub 2 div}
  73. {0 0} {0 boxS strL sub} {boxS strL sub 0} {pepL strL sub boxS
  74. pepL sub 2 div} {pepL strL sub 0} {pepL strL sub boxS pepL sub}
  75. {boxS strL sub 0}] bd /talc {allht tall 4 idiv get exec allvt
  76. tall 4 mod get exec} bd /allht [ {pop} {2 div sub} {sub}] def
  77. /allvt [ {bsiz} {bsiz ysiz 2 div sub} {bsiz ysiz sub} {0}] def
  78. /rtex {cart trot get exec} bd /cart [{} {neg exch} {neg exch
  79. neg exch} {exch neg} {exch} {neg} {neg exch neg} {exch neg exch}]
  80. def